home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-19
/
lcad40.zip
/
COMMENTS.SCR
< prev
next >
Wrap
Lisp/Scheme
|
1992-05-11
|
1KB
|
45 lines
(defun C:// () (getstring t "")(princ))
(defun C:/* () (princ))
(defun C:echo () (while(not(equal (getstring) "echo-off")))(princ))
/*
// The defun's above this line create three AutoLISP functions that
// make commenting a script easy (and possible for that matter)
/*
// Draw the text "LaunchCAD Test"
/*
text c (getvar "VIEWCTR") (/ (getvar"VIEWSIZE") 10) 0
LaunchCAD Test
/*
delay 5000 // wait 5 seconds
/*
redraw // This is a comment
/*
// Note that the slash star is for blank comment lines only,
// and that the slash slash function must have some text on the
// same line, or it will eat the next line in the script file.
// When used at the end of a line leave only one space or tab
// prior to the double slash.
/*
textscr // turn on the text screen
echo
┌──────────────────────────────────────────────┐
│ This is a test of the echo command. Note that│
│ you can put just about anything anywhere. │
└──────────────────────────────────────────────┘
echo-off
/*
delay 5000 // delay for 5 seconds
/*
// AutoLISP functions work only within the drawing editor
// so anything after .quit y or .end must be pure script text.
// Be sure to add the period as the first characters to
// .quit and .end to insure that the system commands are
// used instead of ant AutoLISP replacements. In addition
// do not place any blank lines at the end of the file.
/*
.quit y